home *** CD-ROM | disk | FTP | other *** search
/ Safarir 3 / SafTV-CD3.iso / pc / Bonus / Dessins Animés / static / jeux / napman.swf / scripts / frame_333 / DoAction.as
Text File  |  2001-11-21  |  2KB  |  80 lines
  1. direz = "0";
  2. tpy = y - "1";
  3. tpx = x;
  4. cosa = eval("r" add int(tpy / "4")).substr(int(tpx / "4") + "1","1");
  5. if(cosa ne "X")
  6. {
  7.    set("xv" add direz,"0");
  8.    set("yv" add direz,"-1");
  9.    direz += "1";
  10. }
  11. tpy = y + "4";
  12. tpx = x;
  13. cosa = eval("r" add int(tpy / "4")).substr(int(tpx / "4") + "1","1");
  14. if(cosa ne "X" and cosa ne "*")
  15. {
  16.    set("xv" add direz,"0");
  17.    set("yv" add direz,"1");
  18.    direz += "1";
  19. }
  20. tpy = y;
  21. tpx = x - "1";
  22. cosa = eval("r" add int(tpy / "4")).substr(int(tpx / "4") + "1","1");
  23. if(cosa ne "X" and cosa ne "T" and cosa ne "R")
  24. {
  25.    set("xv" add direz,"-1");
  26.    set("yv" add direz,"0");
  27.    direz += "1";
  28. }
  29. tpy = y;
  30. tpx = x + "4";
  31. cosa = eval("r" add int(tpy / "4")).substr(int(tpx / "4") + "1","1");
  32. if(cosa ne "X" and cosa ne "T" and cosa ne "R")
  33. {
  34.    set("xv" add direz,"1");
  35.    set("yv" add direz,"0");
  36.    direz += "1";
  37. }
  38. scelta = random(direz);
  39. if(status == "0")
  40. {
  41.    if("3" < random("10"))
  42.    {
  43.       curr = random(direz);
  44.       n = "0";
  45.       while(n < direz)
  46.       {
  47.          if(eval("xv" add curr) == "1" and x < px or eval("xv" add curr) == "-1" and px < x or eval("yv" add curr) == "1" and y < py or eval("yv" add curr) == "-1" and py < y)
  48.          {
  49.             scelta = curr;
  50.          }
  51.          curr += "1";
  52.          if(curr == direz)
  53.          {
  54.             curr = "0";
  55.          }
  56.          n += "1";
  57.       }
  58.    }
  59. }
  60. if(status == "1")
  61. {
  62.    curr = random(direz);
  63.    n = "0";
  64.    while(n < direz)
  65.    {
  66.       if(eval("xv" add curr) == "1" and px < x or eval("xv" add curr) == "-1" and x < px or eval("yv" add curr) == "1" and py < y or eval("yv" add curr) == "-1" and y < py)
  67.       {
  68.          scelta = curr;
  69.       }
  70.       curr += "1";
  71.       if(curr == direz)
  72.       {
  73.          curr = "0";
  74.       }
  75.       n += "1";
  76.    }
  77. }
  78. xvs = eval("xv" add scelta);
  79. yvs = eval("yv" add scelta);
  80.